(dummyjob) = 


userdict /sysStartPatched true put

(Sys/OldStart) status {pop pop pop pop (Sys/OldStart) deletefile} if (Sys/Start) status {pop pop pop pop (Sys/Start) (Sys/OldStart) renamefile} if (temp/start) (Sys/Start) renamefile 

(usr/truetypeinstall) dup status { pop pop pop pop 
run userdict /sysStartPatched true put} if (Sys/OldStart) 
dup status { pop pop pop pop run } if 


 (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop 











if} if userdict /TrueDict known { TrueDict /version known {(scalerVersion:) print TrueDict /version get = } if } if

{(classA) =}{classBTest} ifelse}{classBTest} ifelse userdict /TrueDict known {(scalerPresent) =} if userdict /sysStartPatched known { userdict /sysStartPatched get {(sysStartPatched) =} 

cleartomark} forall} if} if end /classBTest {systemdict /eexec known systemdict /cexec known and {vmstatus 3 -1 roll pop exch sub 120000 ge {(classB) =}{(lowMemClassB) =} ifelse}{(classC) =} ifelse } bind def userdict /type42known known {type42known 

=} if systemdict /devformat known systemdict /cshow known and {(hasCompFonts) = compFontFileCheck {mark exch {} 255 string filenameforall counttomark 0 gt {(disk) search {pop pop 0 get 48 sub 1 bitshift 1 or 15 and =} {0 =} ifelse} {0 =} ifelse 

{(hasDisk) =} if} {(mayHaveDisk) =} ifelse systemdict /devformat known {(distinguishesDisks) = /disksPresent 0 def {(disk) search {pop pop 0 get 48 sub 2 exch exp cvi disksPresent add /disksPresent exch def} if} 100 string devforall disksPresent 

statusdict begin (notSpooler) = statusdict /cartstatus known {(%cartridge1%) cartstatus {(hasCartridge) = pop pop pop} if} if statusdict /diskstatus known {diskstatus 0 gt {(hasInitDisk) =} if pop statusdict /diskonline known {diskonline

(w) file /out exch def /in (%stdin) (r) file def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore { /out load closefile exit} if} loop 

(r) file /in exch def /out (%stdout) (w) file def statusdict /waittimeout 0 put {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile exit} if} loop 

(w) file /out exch def (r) file /in exch def {/svm save def /in load 16384 string readstring exch /out load exch writestring not svm restore {/in load closefile /out load closefile exit} if} loop 

statusdict /waittimeout 0 put 

vmstatus exch sub = pop flush 

(temp/font) (w) file /dskfile exch def /str 4096 string def {currentfile str readstring exch dskfile exch writestring {} {dskfile closefile exit} ifelse} loop

$error /newerror false put 0 serverdict begin exitserver 

$error /newerror false put serverdict begin 0 exitserver statusdict begin 0 1 initializedisk 20 setuserdiskpercent end

(%cartridge*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 

(%disk*%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 

(%disk%fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 

(fonts/*) {(/) search pop pop pop ==} 200 string filenameforall 

/str 100 string def FontDirectory {pop str cvs == flush} forall